home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / guides-remove-all.scm < prev    next >
Text File  |  2009-12-15  |  758b  |  31 lines
  1. ;; -*-scheme-*-
  2.  
  3. (define (script-fu-guides-remove image drawable)
  4.   (let* ((guide-id 0))
  5.     (gimp-image-undo-group-start image)
  6.  
  7.     (set! guide-id (car (gimp-image-find-next-guide image 0)))
  8.     (while (> guide-id 0)
  9.       (gimp-image-delete-guide image guide-id)
  10.       (set! guide-id (car (gimp-image-find-next-guide image 0)))
  11.     )
  12.  
  13.     (gimp-image-undo-group-end image)
  14.     (gimp-displays-flush)
  15.   )
  16. )
  17.  
  18. (script-fu-register "script-fu-guides-remove"
  19.   _"_Remove all Guides"
  20.   _"Remove all horizontal and vertical guides"
  21.   "Alan Horkan"
  22.   "Alan Horkan, 2004. Public Domain."
  23.   "April 2004"
  24.   "*"
  25.   SF-IMAGE    "Image"    0
  26.   SF-DRAWABLE "Drawable" 0
  27. )
  28.  
  29. (script-fu-menu-register "script-fu-guides-remove"
  30.                          "<Image>/Image/Guides")
  31.